home *** CD-ROM | disk | FTP | other *** search
/ Aminet 21 / Aminet 21 (1997)(GTI - Schatztruhe)[!][Oct 1997].iso / Aminet / comm / cnet / SE_Read.lha / Read.rexx < prev    next >
OS/2 REXX Batch file  |  1997-07-04  |  757b  |  20 lines
  1. /* Multi-Read File */             
  2. bufferflush;options results
  3. tr=transmit;se=sendstring;sf=sendfile;pr=prompt;gu=getuser;gc=getchar
  4. gu 47;Local=result
  5. if ~ exists("libs:rexxreqtools.library") then Do ; Transmit "Can't find rexxreqtools.library, aborting.." ; Exit ; End
  6. if ~ show('L',"rexxreqtools.library") then if ~addlib('rexxreqtools.library',0,-30,0) then exit
  7.   If Local~=-1 then do
  8.       bbscommand !!rf 
  9.     exit
  10.   end
  11.   else do
  12.     loc=showlist('l','intuition.library',,'a')
  13.     adr=c2d(next(loc,60),4)
  14.   end
  15.   call rtfilerequest("dh4:ansi/",,"Select that file.....",,"rtfi_flags=freqf_multiselect rt_screen="||adr,file)
  16.     if file == 1  then do i=1 to file.count
  17.       se "*0"file.i"}"
  18.       tr "cfPress cdReturncf.....g0f1"
  19.     end
  20.   exit